home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / bday.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  586 b   |  28 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " You're too damn old !"
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 99
  11. read a
  12. read b
  13. if b=999then goto 2000
  14. if a=999 then goto 2000
  15. c = b/2 'the "2" controls tempo
  16. sound a,c
  17. next I
  18. 400data 52,25,52,25,54,50,52,50
  19. 410data 57,50,56,200
  20. 420data 52,25,52,25,54,50,52,50
  21. 430data 41,50,57,200
  22. 440data 52,25,52,25,62,50,60,50
  23. 450data 57,50,56,50,54,150
  24. 460data 61,25,61,25,60,50
  25. 470data 57,50,41,50,57,200
  26. 480data 999,999
  27. 2000 if isrun then run "menu" else system
  28. ə